2 LOCATE,,,0,7
10 REM ******************  BLUEMENU.BAS PROGRAM **************************
15 CLS:CLEAR :SCREEN 0,0,0: WIDTH 80:COLOR 7,0:FOR I=1 TO 10:KEY I,"":NEXT
20 DIM AA$(100),N(100):KEY OFF
25 KEY 2,CHR$(64):KEY 6,CHR$(35):KEY 10,"GOTO 65000"+CHR$(13)
30 LOCATE 3,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
40 FOR I=4 TO 21:LOCATE I,1:PRINT CHR$(1);:LOCATE I,80:PRINT CHR$(1);:NEXT
50 LOCATE 22,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
60 LOCATE 5,20:PRINT "B L U E B E R R Y    P I E     M E N U         (Page 1)";
80 LOCATE 7,5:PRINT"The next page contains a menu of the programs on this disk.  This disk "
100 LOCATE 8,5:PRINT"does not have DOS or BASICA installed, nor is their room with DOS 2.0."
120 LOCATE 9,5:PRINT"To use this disk:  Use DOS to load  BASICA. Put this disk in Drive A:."
140 LOCATE 10,5:PRINT"Load and run STARTUP.BAS or STARTUP.CLR and follow prompts. The MENU will"
150 LOCATE 11,5:PRINT"come up. Programs load directly from the MENU.  Programs with the suffix"
160 LOCATE 12,5:PRINT".CLR will run in color or monochrome. Programs with the suffix .GRA use"
165 LOCATE 13,5:PRINT"the COLOR/GRAPHICS board.
170 LOCATE 15,5:PRINT"     To see MENU page 2, press < F2 >. To eliminate this Page 1 on future"
180 LOCATE 16,5:PRINT"callups of the MENU, remove WRITE PROTECT TAB. Put BLUEBERRY Pie in DRIVE"
182 LOCATE 17,5:PRINT"A: and Press  < F6 >.  When Break in 6100 appears, <ENTER> 25 GOTO 210."
184 LOCATE 18,5:PRINT"Then press < F10 >. Thereafter, only page 2 of BLUEMENU will appear."
190 LOCATE 20,28,0,14,0:PRINT"PRESS < F2 > TO CONTINUE"
192 IN$=INKEY$:IF IN$="" THEN 192
194 IF IN$=CHR$(64) THEN 210
196 IF IN$=CHR$(35) THEN 6000
200 SOUND 400,5:GOTO 192
210 FOR I=1 TO 10:KEY I,"":NEXT:KEY OFF: COLOR 7,0:LOCATE 24,25,0:PRINT"PLEASE STAND BY -- READING DATA";:GOSUB 1000:LOCATE 24,1,1,0,7:PRINT SPC(77);
220 CLS:LOCATE 3,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
230 FOR I = 4 TO 23:LOCATE I,1:PRINT CHR$(1);:LOCATE I,80:PRINT CHR$(1);:NEXT
240 LOCATE 24,1:PRINT CHR$(1);STRING$(78,1);CHR$(1);
250 LOCATE 4,20:PRINT "B L U E B E R R Y    P I E     M E N U ";
260 I=6:LOCATE I,4:PRINT AA$(1);CHR$(16);N(1):LOCATE I,23:PRINT AA$(2);CHR$(16);N(2):LOCATE I,42:PRINT AA$(3);CHR$(16);N(3):LOCATE I,61:PRINT AA$(4);CHR$(16);N(4)
270 I=7:LOCATE I,4:PRINT AA$(5);CHR$(16);N(5):LOCATE I,23:PRINT AA$(6);CHR$(16);N(6):LOCATE I,42:PRINT AA$(7);CHR$(16);N(7):LOCATE I,61:PRINT AA$(8);CHR$(16);N(8)
280 I=8:LOCATE I,4:PRINT AA$(9);CHR$(16);N(9):LOCATE I,23:PRINT AA$(10);CHR$(16);N(10):LOCATE I,42:PRINT AA$(11);CHR$(16);N(11):LOCATE I,61:PRINT AA$(12);CHR$(16);N(12)
290 I=9:LOCATE I,4:PRINT AA$(13);CHR$(16);N(13):LOCATE I,23:PRINT AA$(14);CHR$(16);N(14):LOCATE I,42:PRINT AA$(15);CHR$(16);N(15):LOCATE I,61:PRINT AA$(16);CHR$(16);N(16)
300 I=10:LOCATE I,4:PRINT AA$(17);CHR$(16);N(17):LOCATE I,23:PRINT AA$(18);CHR$(16);N(18):LOCATE I,42:PRINT AA$(19);CHR$(16);N(19):LOCATE I,61:PRINT AA$(20);CHR$(16);N(20)
310 I=11:LOCATE I,4:PRINT AA$(21);CHR$(16);N(21):LOCATE I,23:PRINT AA$(22);CHR$(16);N(22):LOCATE I,42:PRINT AA$(23);CHR$(16);N(23):LOCATE I,61:PRINT AA$(24);CHR$(16);N(24)
320 I=12:LOCATE I,4:PRINT AA$(25);CHR$(16);N(25):LOCATE I,23:PRINT AA$(26);CHR$(16);N(26):LOCATE I,42:PRINT AA$(27);CHR$(16);N(27):LOCATE I,61:PRINT AA$(28);CHR$(16);N(28)
330 I=13:LOCATE I,4:PRINT AA$(29);CHR$(16);N(29):LOCATE I,23:PRINT AA$(30);CHR$(16);N(30):LOCATE I,42:PRINT AA$(31);CHR$(16);N(31):LOCATE I,61:PRINT AA$(32);CHR$(16);N(32)
340 I=14:LOCATE I,4:PRINT AA$(33);CHR$(16);N(33):LOCATE I,23:PRINT AA$(34);CHR$(16);N(34):LOCATE I,42:PRINT AA$(35);CHR$(16);N(35):LOCATE I,61:PRINT AA$(36);CHR$(16);N(36)
350 I=15:LOCATE I,4:PRINT AA$(37);CHR$(16);N(37):LOCATE I,23:PRINT AA$(38);CHR$(16);N(38):LOCATE I,42:PRINT AA$(39);CHR$(16);N(39):LOCATE I,61:PRINT AA$(40);CHR$(16);N(40)
355 I=16:LOCATE I,4:PRINT AA$(41);CHR$(16);N(41):LOCATE I,23:PRINT AA$(42);CHR$(16);N(42):LOCATE I,42:PRINT AA$(43);CHR$(16);N(43): LOCATE I,61:PRINT AA$(44);CHR$(16);N(44)
356 I=17:LOCATE I,4:PRINT AA$(45);CHR$(16);N(45):LOCATE I,23:PRINT AA$(46);CHR$(16);N(46): LOCATE I,42:PRINT AA$(47);CHR$(16);N(47): LOCATE I,61:PRINT AA$(48);CHR$(16);N(48)
357 I=18:LOCATE I,4:PRINT AA$(49);CHR$(16);N(49):LOCATE I,23:PRINT AA$(50);CHR$(16);N(50):LOCATE I,42:PRINT AA$(51);CHR$(16);N(51): LOCATE I,61:PRINT AA$(52);CHR$(16);N(52)
358 I=19:LOCATE I,4:PRINT AA$(53);CHR$(16);N(53):LOCATE I,23:PRINT AA$(54);CHR$(16);N(54): LOCATE I,42:PRINT AA$(55);CHR$(16);N(55): LOCATE I,61:PRINT AA$(56);CHR$(16);N(56)
360 LOCATE 21,5:PRINT SPC(50);:LOCATE 20,5:PRINT SPC(50);:LOCATE 21,31:PRINT"SELECT A PROGRAM ";:LINE INPUT;PROGRAM$
370 N = VAL(PROGRAM$)
372 IF (N < 1 OR N > 56 ) THEN 360
380 ON N GOTO 2000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210,2220,2230,2240,2250,2260,2270,2280,2290,2300,2310,2320,2330,2340,2350,2360,2370,2380,2390,2400,2410,2420,2430,2440
385 ON N-45 GOTO 2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550
390 ON ERROR GOTO 0
1000 REM *******************DATA INPUT FOR MENU *****************************
1010 P = 56
1020 FOR J=1 TO P
1030 READ AA$(J),N(J)
1040 DATA "ALPHAHEX.BAS",1:     REM LN  2000
1050 DATA "BLUEBERY.BAS",2:     REM     2010
1060 DATA "BLUEBERY.DOC",3:     REM     2020
1070 DATA "BLUEBRY2.DOC",4:     REM     2030
1080 DATA "BLUEMENU.BAS",5:     REM     2040
1090 DATA "BOXINBOX.BAS",6:     REM LN  2050
1100 DATA "BOXINPUT.BAS",7:     REM     2060
1110 DATA "BUSCHECK.BAS",8:     REM     2070
1120 DATA "CALULATE.BAS",9:     REM     2080
1130 DATA "CHEKFORM.BAS",10:    REM     2090
1140 DATA "CHR$PRNT.BAS",11:    REM LN  2100
1150 DATA "CIRCLE  .GRA",12:    REM     2110
1160 DATA "COLORSEE.CLR",13:    REM     2120
1170 DATA "COMPOUND.BAS",14:    REM     2130
1180 DATA "D&CFORM .BAS",15:    REM     2140
1190 DATA "EASYWORD.BAS",16:    REM LN  2150
1200 DATA "EPSONSET.BAS",17:    REM     2160
1210 DATA "ESCKEY  .BAS",18:    REM     2170
1220 DATA "FILEDATE.BAS",19:    REM     2180
1230 DATA "GASFORM .BAS",20:    REM     2190
1240 DATA "HEADCLN .BAS",21:    REM LN  2200
1250 DATA "HEXPRINT.BAS",22:    REM     2210
1260 DATA "HEXSAY  .BAS",23:    REM     2220
1270 DATA "IBMLABEL.BAS",24:    REM     2230
1280 DATA "KEYSET  .BAS",25:    REM     2240
1290 DATA "LABELPRO.BAS",26:    REM LN  2250
1300 DATA "LPT12SET.BAS",27:    REM     2260
1310 DATA "MENUPRNT.BAS",28:    REM     2270
1320 DATA "NECLABEL.BAS",29:    REM     2280
1330 DATA "NICELIST.BAS",30:    REM     2290
1340 DATA "PC-COLOR.BAS",31:    REM LN  2300
1350 DATA "PCADD   .GRA",32:    REM     2310
1360 DATA "PEEKPRNT.BAS",33:    REM     2320
1370 DATA "PRNTCALL.BAS",34:    REM     2330
1380 DATA "PROGHEAD.BAS",35:    REM     2340
1390 DATA "QUICKBOX.CLR",36:    REM LN  2350
1400 DATA "RANDSEED.BAS",37:    REM     2360
1410 DATA "SAMPLE  .TWD",38:    REM     2370
1420 DATA "SAVINGS .BAS",39:    REM     2380
1430 DATA "SHOWBOX .BAS",40:    REM     2390
1440 DATA "SIXBOXES.BAS",41:    REM LN  2400
1450 DATA "STARTUP .BAS",42:    REM     2410
1460 DATA "STARTUP .CLR",43:    REM     2420
1461 DATA "TASKLIST.BAS",44:    REM     2430
1462 DATA "TEST2WRT.BAS",45:    REM     2440
1463 DATA "TESTWRIT.BAS",46:    REM LN  2450
1464 DATA "TESTWRIT.DOC",47:    REM     2460
1465 DATA "TIMESHOW.BAS",48:    REM     2470
1466 DATA "WEIGHTFM.BAS",49:    REM     2480
1468 DATA "WORKFILE.BAS",50:    REM     2490
1469 DATA "WORKFILE.DAT",51:    REM LN  2500
1470 DATA "YESORNO .BAS",52:    REM     2510
1471 DATA "YOURMENU.BAS",53:    REM     2520
1472 DATA "ZIPCLEAR.BAS",54:    REM     2530
1473 DATA "LISTSKIP.10P",55:    REM     2540
1474 DATA "LISTSKIP.17P",56:    REM LN  2550
1475 DATA "--------.BAS",57:    REM     2560
1476 DATA "--------.BAS",58:    REM     2570
1477 DATA "--------.BAS",59:    REM     2580
1478 DATA "--------.BAS",60:    REM     2590
1480 NEXT J
1490 RETURN
1650 GOTO 210
2000 RUN"ALPHAHEX.BAS"
2010 RUN"BLUEBERY.BAS"
2020 GOTO 2630          'BLUEBERY.DOC
2030 GOTO 2630          'BLUEBRY2.DOC
2040 RUN"BLUEMENU.BAS"
2050 RUN"BOXINBOX.BAS"
2060 RUN"BOXINPUT.BAS"
2070 RUN"BUSCHECK.BAS"
2080 RUN"CALULATE.BAS"
2090 RUN"CHEKFORM.BAS"
2100 RUN"CHR$PRNT.BAS"
2110 RUN"CIRCLE  .GRA"
2120 RUN"COLORSEE.CLR"
2130 RUN"COMPOUND.BAS"
2140 RUN"D&CFORM .BAS"
2150 RUN"EASYWORD.BAS"
2160 RUN"EPSONSET.BAS"
2170 RUN"ESCKEY  .BAS"
2180 RUN"FILEDATE.BAS"
2190 RUN"GASFORM .BAS"
2200 RUN"HEADCLN .BAS"
2210 RUN"HEXPRINT.BAS"
2220 RUN"HEXSAY  .BAS"
2230 RUN"IBMLABEL.BAS"
2240 RUN"KEYSET  .BAS"
2250 RUN"LABELPRO.BAS"
2260 RUN"LPT12SET.BAS"
2270 RUN"MENUPRNT.BAS"
2280 RUN"NECLABEL.BAS"
2290 RUN"NICELIST.BAS"
2300 RUN"PC-COLOR.BAS"
2310 RUN"PCADD   .GRA"
2320 RUN"PEEKPRNT.BAS"
2330 RUN"PRNTCALL.BAS"
2340 RUN"PROGHEAD.BAS"
2350 RUN"QUICKBOX.CLR"
2360 RUN"RANDSEED.BAS"
2370 GOTO 2610         'SAMPLE.TWD FOR USE WITH TESTWRITE.BAS/TEST2WRT.BAS
2380 RUN"SAVINGS .BAS"
2390 RUN"SHOWBOX .BAS"
2400 RUN"SIXBOXES.BAS"
2410 RUN"STARTUP .BAS"
2420 RUN"STARTUP .CLR"
2430 RUN"TASKLIST.BAS"
2440 RUN"TEST2WRT.BAS"
2450 RUN"TESTWRIT.BAS"
2460 GOTO 2630         'TESTWRITE DOCUMENTATION
2470 RUN"TIMESHOW.BAS"
2480 RUN"WEIGHTFM.BAS"
2490 RUN"WORKFILE.BAS"
2500 GOTO 2620         'WORKFILE DAT LOADED BY WORKFILE.BAS
2510 RUN"YESORNO .BAS"
2520 RUN"YOURMENU.BAS"
2530 RUN"ZIPCLEAR.BAS"
2540 RUN"LISTSKIP.10P"
2550 RUN"LISTSKIP.17P"
2560 REM
2590 GOTO 210
2600 REM **************** CUT OFF FOR NON-BASIC SELECTION *******************
2610 LOCATE 25,10:PRINT SPC(65);:LOCATE 25,10:PRINT"NOT A BASIC PROGRAM -- DATA FILE TO BE LOADED BY TESTWRIT.BAS.";:FOR I = 1 TO 3000:NEXT:GOTO 2640
2620 LOCATE 25,10:PRINT SPC(65);:LOCATE 25,10:PRINT"NOT A BASIC PROGRAM -- DATA FILE TO BE LOADED BY WORKFILE.BAS.";:FOR I = 1 TO 3000:NEXT:GOTO 2640
2630 LOCATE 25,10:PRINT SPC(65);:LOCATE 25,10:PRINT"NOT A BASIC PROGRAM -- LOAD FROM DOS WITH 'TYPE' COMMAND.";:FOR I = 1 TO 3000:NEXT:GOTO 2640
2640 LOCATE 25,10:PRINT SPC(65);:GOTO 360
6000 LOCATE,,,0,7:GOTO 6100
6100 STOP
64950 END
65000 REM **********************  SAVE   ROUTINE ****************************
65100 COLOR 7,0:SAVE"A:BLUEMENU.BAS"
65200 GOTO 10
